! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialization File
! 
! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : aromatics_kpp_Initialize.f90
! Time                 : Thu Jan  7 01:55:10 2021
! Working directory    : /n/home08/kbates/Aromatics/GC_new3_chamber
! Equation file        : aromatics_kpp.kpp
! Output root filename : aromatics_kpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE aromatics_kpp_Initialize

  USE aromatics_kpp_Parameters, ONLY: dp, NVAR, NFIX
  IMPLICIT NONE

CONTAINS


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialize - function to initialize concentrations
!   Arguments :
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SUBROUTINE Initialize ( )


  USE aromatics_kpp_Global

  INTEGER :: i
  REAL(kind=dp) :: x

  CFACTOR = 2.500000e+19_dp

  x = (1.0E-30)*CFACTOR
  DO i = 1, NVAR
    VAR(i) = x
  END DO

  x = (1.0E-30)*CFACTOR
  DO i = 1, NFIX
    FIX(i) = x
  END DO

  VAR(32) = (1.0001E-2)*(0.0E-9)*CFACTOR
  VAR(42) = (1.0002E-2)*(0.0E-9)*CFACTOR
  VAR(43) = (1.0003E-2)*(1.0E-3)*CFACTOR
  VAR(57) = (4.9999E-1)*(5.0E-6)*CFACTOR
  VAR(153) = (5.0004E-3)*(5.0E-3)*CFACTOR
  FIX(2) = (2.1E-1)*CFACTOR
! constant rate coefficients
  RCONST(13) = 5.35e+07
  RCONST(22) = 2e-11
  RCONST(26) = 4e-12
  RCONST(376) = 1.7e-11
  RCONST(379) = 2.3e-12
  RCONST(383) = 3.8e-12
  RCONST(384) = 4.7e-11
  RCONST(385) = 1.4e-11
  RCONST(386) = 2e-11
  RCONST(387) = 9.2e-18
  RCONST(388) = 9.9e-11
  RCONST(391) = 2.4e-15
  RCONST(395) = 4.66e-12
  RCONST(398) = 1.06e-12
  RCONST(399) = 7e-12
  RCONST(401) = 2.3e-12
  RCONST(403) = 3.6e-12
  RCONST(405) = 2.86e-13
  RCONST(406) = 2.08e-12
  RCONST(408) = 3.47e-12
  RCONST(409) = 2.6e-12
  RCONST(412) = 1.1e-10
  RCONST(413) = 1.8e-15
  RCONST(414) = 0.0017
  RCONST(415) = 1.1e-10
  RCONST(416) = 1.8e-15
  RCONST(417) = 0.0017
! END constant rate coefficients

! INLINED initializations

        TSTART = 0
        TEND = TSTART + 180000
        DT = 60.0
        TEMP = 278 + 30.0

! End INLINED initializations

      
END SUBROUTINE Initialize

! End of Initialize function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



END MODULE aromatics_kpp_Initialize

